home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / VISUALBA / STBA2.ZIP / CHILD.FRM next >
Text File  |  1993-03-16  |  2KB  |  57 lines
  1. VERSION 2.00
  2. Begin Form fmChild 
  3.    Caption         =   "StBar Example Child Form"
  4.    Height          =   2790
  5.    Left            =   1050
  6.    LinkMode        =   1  'Source
  7.    LinkTopic       =   "Form1"
  8.    MDIChild        =   -1  'True
  9.    ScaleHeight     =   2385
  10.    ScaleWidth      =   5925
  11.    Top             =   1125
  12.    Width           =   6045
  13.    Begin CommandButton Command3 
  14.       Caption         =   "toggle &visible property"
  15.       Height          =   495
  16.       Left            =   600
  17.       TabIndex        =   2
  18.       Top             =   1680
  19.       Width           =   4695
  20.    End
  21.    Begin CommandButton Command2 
  22.       Caption         =   "show &second message"
  23.       Height          =   495
  24.       Left            =   600
  25.       TabIndex        =   1
  26.       Top             =   960
  27.       Width           =   4695
  28.    End
  29.    Begin CommandButton Command1 
  30.       Caption         =   "show &first message"
  31.       Height          =   495
  32.       Left            =   600
  33.       TabIndex        =   0
  34.       Top             =   240
  35.       Width           =   4695
  36.    End
  37. End
  38. Option Explicit
  39.  
  40. Declare Sub StBarVisible Lib "STBAR.VBX" (ByVal hWnd As Integer, ByVal iVisible As Integer)
  41.  
  42. Sub Command1_Click ()
  43.     fmMain.sbMain.Caption = "first message"
  44. End Sub
  45.  
  46. Sub Command2_Click ()
  47.     fmMain.sbMain.Caption = "second message"
  48. End Sub
  49.  
  50. Sub Command3_Click ()
  51.     Dim iVisible As Integer
  52.     iVisible = Not fmMain.sbMain.Visible
  53.     StBarVisible fmMain.hWnd, iVisible
  54.     fmMain.piStBar.Visible = iVisible
  55. End Sub
  56.  
  57.